home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
cditp21.zip
/
CODEIT.E_
/
CIMENU3.BI
< prev
next >
Wrap
Text File
|
1992-03-03
|
860b
|
18 lines
'============================================================================
'CIMENU3.BI Copyright (C) 1991-1992, Clear Software. ALL RIGHTS RESERVED.
'============================================================================
DECLARE SUB PopColors (bordFGClr%, bordBGClr%, textFGClr%, textBGClr%, titleFGClr%, titleBGClr%, hiFGClr%, hiBGClr%, disableFGClr%, disableHiFGCLr%, hihiFGClr%, hicharFGClr%)
DECLARE SUB PopDescript (row%, col%, descript$(), AreaLen%, FG%, BG%)
DECLARE SUB PopExitKeySet (keyHandle%, exitKey$)
DECLARE SUB PopPaint (left%, right%, top%, bottom%, shad%, boxType%)
'============================================================================
DECLARE FUNCTION PopMenu% (top%, left%, choice$(), hipos%(), mtitle$, shad%, boxType%)
'============================================================================